home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / JTools / DevTools / opttest.f < prev    next >
Encoding:
FORTH Source  |  1991-11-28  |  572 b   |  36 lines
  1. anew task-test.f
  2.  
  3. decimal
  4.  
  5. 1,000,000 constant #tests
  6.  
  7. >newline ." TEST1: add all the bytes in JForth image..." cr
  8.  
  9. : test1  ( -- , add all the bytes from adr 0 t0 initial stack adr )
  10.   0 0 s0 @ 0  ( -- running-tot #done limit 0 ) DO
  11.      dup c@   ( -- rt #d byte )
  12.      rot + swap  ( -- rt+byte #d )  1+
  13.   LOOP
  14.   2drop
  15. ;
  16.  
  17. measure test1
  18. cr
  19.  
  20. >newline ." TEST2: 'SWAP 1+ SWAP 1+', " #tests . ." times..." cr
  21.  
  22. : test2  ( -- )
  23.   0 0 #tests 0 DO
  24.      swap 1+ swap 1+
  25.   LOOP
  26.   2drop
  27. ;
  28.  
  29. measure test2
  30. cr
  31.  
  32. \ >newline ." FORGET test words" y/n
  33. \ .IF
  34. \    forget task-test.f
  35. \ .THEN
  36.